home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD021b.dsk / DATE.LIST.bas < prev    next >
BASIC Source File  |  2003-06-12  |  4KB  |  109 lines
  1. 10  CLEAR : ONERR  GOTO 10
  2. 12  INVERSE 
  3. 20  HOME : PRINT "**************************************": PRINT "*                                    *": PRINT "*              DATE-LIST             *": PRINT "*                                    *": PRINT "**************************************"
  4. 30  VTAB 7: NORMAL 
  5. 40  PRINT : PRINT  TAB( 7)"OPTIONS:"
  6. 50  PRINT : PRINT : PRINT  TAB( 7)"<1> REVIEW OLD DATE-LIST"
  7. 60  PRINT : PRINT  TAB( 7)"<2> CREATE NEW DATE-LIST"
  8. 70  PRINT : PRINT  TAB( 7)"<3> SEE CALENDAR"
  9. 80  PRINT : PRINT  TAB( 7)"<4> SEE CATALOG"
  10. 90  PRINT : PRINT  TAB( 7)"<5> EXIT THIS PROGRAM"
  11. 100  PRINT : PRINT : HTAB 7: INVERSE : PRINT "SELECT ONE:";;: GET L$: VTAB 22: HTAB 19: NORMAL : PRINT L$
  12. 110  IF L$ = "1"  THEN 1000
  13. 120  IF L$ = "2"  THEN  GOTO 170
  14. 130  IF L$ = "3"  THEN  PRINT : PRINT  CHR$(4)"RUN CALENDAR"
  15. 140  IF L$ = "4"  THEN  PRINT : PRINT  CHR$(4)"CATALOG": PRINT : INVERSE : PRINT "PRESS <SPACE BAR> TO CONTINUE.";: GET P$: NORMAL 
  16. 150  IF L$ = "5"  THEN  PRINT : PRINT  CHR$(4)"RUN MENU"
  17. 160  GOTO 10
  18. 170  DIM A$(100):I = 0
  19. 180 D$ =  CHR$(4): REM  CTRL D
  20. 190  HOME : TEXT 
  21. 195  PRINT "THIS SECTION LETS YOU CREATE A LIST OF   THINGS TO DO FOR ANY PARTICULAR DATE."
  22. 200  PRINT "TYPE ONE LIST-ITEM AT A TIME."
  23. 210  PRINT "EACH ITEM MAY HAVE UP TO 239 CHARACTERS, BUT TRY TO USE SHORT PHRASES."
  24. 220  PRINT 
  25. 230  PRINT :I = I +1
  26. 240  PRINT "(PRESS <RETURN> TO NAME LIST.)"
  27. 250  PRINT "TYPE LIST-ITEM #";I;": ";
  28. 260  INPUT "";A$(I)
  29. 270  IF A$(I) < >"" GOTO 220
  30. 280  PRINT 
  31. 290  INPUT "WHAT DATE? (MONTH.DAY.YEAR) ";N$
  32. 300  PRINT D$;"OPEN ";N$
  33. 310  PRINT D$"DELETE ";N$
  34. 320  PRINT D$;"OPEN ";N$
  35. 330  PRINT D$;"WRITE ";N$
  36. 335 I = I +10
  37. 340  PRINT I -1
  38. 345 I = I -10
  39. 350  FOR J = 1 TO I -1
  40. 360 : PRINT A$(J)
  41. 370  NEXT J
  42. 380  PRINT D$;"CLOSE ";N$
  43. 390  GOTO 10
  44. 1000  CLEAR : ONERR  GOTO 1360
  45. 1010 D$ =  CHR$(4): REM  CTRL D
  46. 1020  INVERSE 
  47. 1030  HOME : PRINT "**************************************": PRINT "*                                    *": PRINT "*        LIST OF THINGS TO DO        *": PRINT "*                                    *": PRINT "**************************************"
  48. 1040  NORMAL 
  49. 1050  PRINT : PRINT 
  50. 1060  PRINT "THIS SECTION RETRIEVES A LIST OF          THINGS TO DO FOR A PARTICULAR DATE."
  51. 1070  PRINT : PRINT 
  52. 1080  PRINT "ENTER DATE LIKE THIS:  MONTH.DAY.YEAR"
  53. 1090  PRINT 
  54. 1100  INPUT "WHAT DATE? ";Z$
  55. 1110  INVERSE 
  56. 1120  HOME :L =  LEN(Z$):L = L/2:L = 16 -L: HTAB L: PRINT "**** ";Z$;" ****": PRINT : PRINT 
  57. 1130  NORMAL 
  58. 1140  PRINT D$;"OPEN ";Z$
  59. 1150  PRINT D$;"READ ";Z$
  60. 1160  INPUT I
  61. 1165 I = I -10
  62. 1170  DIM A$(I)
  63. 1180  FOR J = 1 TO I
  64. 1182  IF I < = 15  THEN 1190
  65. 1190 : INPUT A$(J)
  66. 1200  IF J >9  THEN  HTAB L -1: PRINT J;". ";A$(J): GOTO 1220
  67. 1210  HTAB L: PRINT J;". ";A$(J)
  68. 1220  IF I >8  THEN  GOTO 1240
  69. 1230  PRINT 
  70. 1240  NEXT J
  71. 1250  PRINT D$;"CLOSE ";Z$
  72. 1260  PRINT : PRINT "ADD TO LIST? ( Y/N )";: GET U$
  73. 1270  IF U$ < >"Y"  AND U$ < >"N"  THEN  GOTO 1260
  74. 1280  IF U$ = "N"  THEN  GOTO 1300
  75. 1290  GOTO 1450
  76. 1300 X$ = "N": PRINT 
  77. 1310  IF X$ = "N"  THEN  PRINT : PRINT "DELETE LIST? ( Y/N )";: GET C$
  78. 1320  IF C$ = "Y"  THEN  GOTO 1430
  79. 1330  IF C$ < >"Y"  AND C$ < >"N"  THEN  GOTO 1310
  80. 1340  GOTO 10
  81. 1350  END 
  82. 1360  PRINT : PRINT  CHR$(7): HOME : VTAB 10: PRINT "ARE YOU SURE ABOUT THAT DATE?": PRINT : PRINT "TRY AGAIN."
  83. 1370  FOR P = 1 TO 1000: NEXT 
  84. 1380  ONERR  GOTO 1000
  85. 1390  PRINT  CHR$(4);"DELETE ";Z$
  86. 1400  GOTO 1000
  87. 1430  PRINT : PRINT  CHR$(4);"DELETE ";Z$: GOTO 1340
  88. 1440  END 
  89. 1450  HOME : VTAB 10: INPUT "TYPE LIST-ITEM: ";V$
  90. 1460  PRINT 
  91. 1470  PRINT D$;"OPEN ";Z$
  92. 1480  PRINT D$;"READ ";Z$
  93. 1490  INPUT I:I = I +1
  94. 1500  PRINT D$;"CLOSE ";Z$
  95. 1510  PRINT D$;"OPEN ";Z$
  96. 1520  PRINT D$;"POSITION ";Z$;",R0"
  97. 1530  PRINT D$;"WRITE ";Z$
  98. 1540  PRINT I
  99. 1550  PRINT D$;"CLOSE ";Z$
  100. 1560  PRINT 
  101. 1570  PRINT  CHR$(4);"APPEND ";Z$
  102. 1580  PRINT  CHR$(4);"WRITE ";Z$
  103. 1590  PRINT V$
  104. 1600  PRINT  CHR$(4);"CLOSE ";Z$
  105. 1610  HOME 
  106. 1620  VTAB 10: PRINT "ADD MORE? ( Y/N )";: GET M$
  107. 1630  IF M$ = "Y"  THEN  GOTO 1450
  108. 1640  IF M$ = "N"  THEN 10
  109. 1650  IF M$ < >"Y"  AND M$ < >"N"  THEN  GOTO 1610